home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed30.d64 / game 3c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  19KB  |  619 lines
  1. 10 POKE53280,0:POKE53281,0:POKE646,3:POKE53272,21:P=0
  2. 20 PRINT"[147]                                        [146]";
  3. 22 PRINT"           GILLIAN'S SQUARES            [146]";
  4. 24 PRINT"[159]                                        [146]";
  5. 26 PRINT"               UNIT 3C                  [146]";
  6. 28 PRINT"[159]                                        [146]":GOSUB382
  7. 30 PRINT"         INSTRUCTIONS?  Y/N           [152]T[159] ":GOSUB 760
  8. 35 GETR$:IFR$<>"Y"ANDR$<>"N"ANDR$<>"T"THEN35
  9. 40 IFR$="Y"THEN GOSUB1100
  10. 45 IFR$="T"THEN 100
  11. 50 GOSUB800:GOTO1000
  12. 100 PRINT"[147]          TEACHER INFORMATION           [146]"
  13. 105 PRINT" 3C[159] USES THE FOLLOWING NUMBERS:
  14. 110 [153]" GAME 1 11+11     GAME 2 13+10
  15. 112 PRINT"         -  -(9)          -   -(7)
  16. 114 [153]"         7+ 6              9+ 7
  17. 116 PRINT" GAME 3 17+11     GAME 4 17+13
  18. 118 [153]"         -  -(14)         -  -(9)
  19. 120 PRINT"         8+ 6            12+ 9
  20. 122 [153]" GAME 5  3+28     GAME 6  6+17
  21. 124 PRINT"         -  -(31)         -  -(9)
  22. 126 [153]"        13+ 7            13+15
  23. 130 PRINT" GAME 7 15+14     GAME 8 11+19
  24. 132 [153]"         -  -(13)         -  -(21)
  25. 134 PRINT"         9+ 7             2+ 7
  26. 136 [153]" GAME 9 14+17    GAME 10 32+ 9
  27. 138 PRINT"         -  -(17)         -  -(17)
  28. 140 [153]"        12+ 2            17+ 7ONON"
  29. 150 [141]340:[137]10
  30. 199 :
  31. 200 [153]"    (null)TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(PEEKTAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(PEEKTAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB((null)PRINT#"K
  32. 205 [153]"OPEN    (null)         PEEK         PEEK         (null)
  33. 210 PRINT"    [217]         [158]+[159]         [194]    A    [212]
  34. 215 [153]"    (null)         PEEK         PEEK         (null)
  35. 220 PRINT"    [217][163][163][163] [158]-[159] [163][163][163][194][163][163][163] [158]-[159] [163][163][163][194][163][163][163] [158]-[159] [163][163][163][212]
  36. 225 [153]"    (null)         PEEK         PEEK         (null)
  37. 230 PRINT"    [217]         [158]+[159]         [194]    B    [212]
  38. 235 [153]"    (null)         PEEK         PEEK         (null)
  39. 240 PRINT"    [217][163][163][163][163][163][163][163][163][163][194][163][163][163][163][163][163][163][163][163][194][163][163][163][163][163][163][163][163][163][212]
  40. 245 [153]"    (null)         PEEK         PEEK         (null)
  41. 250 PRINT"    [217]    C    [158]+[159]    D    [194]    E    [212]
  42. 255 [153]"    (null)         PEEK         PEEK         (null)
  43. 260 PRINT"     [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]":RETURN
  44. 299 :
  45. 300 PRINT"[145][145][153]               CORRECT!!                [146][159]":GOSUB700:GOSUB381
  46. 310 PRINT"[145][145]                                        "
  47. 315 PRINT"[145]                                        ":RETURN
  48. 319 :
  49. 320 GOSUB380:GOSUB730:PRINT"[150]    WHOOPS NO!  LOOK UP AT THIS  ^^^    "
  50. 325 GOSUB382:PRINT"[145][145]                                        [145][159]":W=W+1
  51. 330 GOSUB760:GOSUB760:GOSUB760:GOSUB380:RETURN
  52. 339 :
  53. 340 GOSUB382:GOSUB760
  54. 345 PRINT"[154]      PRESS SPACE BAR[146] TO CONTINUE     [159]"
  55. 350 GETR$:IFR$<>CHR$(32)THEN350
  56. 355 PRINT"[145]                                        "
  57. 360 RETURN
  58. 369 :
  59. 380 FORT=1TO500:NEXT:RETURN
  60. 381 FORT=1TO1000:NEXT:RETURN
  61. 382 FORT=1TO2000:NEXT:RETURN
  62. 383 FORT=1TO3000:NEXT:RETURN
  63. 384 FORT=1TO4000:NEXT:RETURN
  64. 385 FORT=1TO5000:NEXT:RETURN
  65. 399 :
  66. 400 PRINT"[147][158] YOU NOW HAVE A CHOICE:
  67. 405 [153]" PRESS  R WAIT TO REPEAT GAME 3C
  68. 410 PRINT" PRESS  M [146] TO GO TO THE DISK MENU":GOSUB381:GOSUB760
  69. 415 GETR$:IFR$<>"R"ANDR$<>"M"THEN415
  70. 420 IFR$="R"THEN RESTORE:GOTO10
  71. 425 PRINT"[147] RETURNING TO THE DISK MENU
  72. 430 [147]"MENU",8
  73. 435 [138]
  74. 440 [128]
  75. 550 [143] MOVE TO NEXT GAME
  76. 551 [139] P[178]1[167]1010
  77. 552 [139] P[178]2[167]1020
  78. 553 [139] P[178]3[167]1030
  79. 554 [139] P[178]4[167]1040
  80. 555 [139] P[178]5[167]1050
  81. 556 [139] P[178]6[167]1060
  82. 557 [139] P[178]7[167]1070
  83. 558 [139] P[178]8[167]1080
  84. 559 [139] P[178]9[167]1090
  85. 560 [139] P[178]10[167]400
  86. 599 :
  87. 620 TI$[178]"000000":W[178]0:[142]
  88. 650 TM[178][197](TI$)
  89. 655 L[178]5[171]W:Z[178]L[172]20
  90. 660 [153]"ONON                                        "
  91. 670 [153]"ONONON    * YOUR PRINTSCOREOPEN FOR GAMEPRINT"K"OPENIS"Z:[141]760:[141]381
  92. 675 [153]"OPEN    * YOUR PRINTTIMEOPEN IS"TM"OPENSECONDS.":[141]760:[141]381
  93. 681 [139]W[178]0[167][153]"               EXCELLENT!               WAITOPEN"
  94. 682 [139]W[178]0[167][141]700:[141]381:[141]696
  95. 683 [139]W[178]1[167][153]"               GOOD TRY                 WAITOPEN"
  96. 684 [139]W[178]1[167][141]700:[141]381:[137] 696
  97. 685 [139]W[178]2[167][153]"SYS              TRY HARDER                WAITOPEN"
  98. 686 [139]W[178]2[167][141]760:[141]760:[141]381:[137] 696
  99. 687 [139]W[178]3[167][153]"SYS             GET CRACKING               WAITOPEN"
  100. 688 [139]W[178]3[167][141]760:[141]760:[141]381:[137] 696
  101. 689 [139]W[178]4[167][153]"DEF        OH DEAR - HAVING A SNOOZE?      WAITOPEN"
  102. 690 [139]W[178]4[167][141]730:[141]381:[137]696
  103. 692 [139]W[178]5[167][153]"DEF         COME ON - - - WAKE UP!         WAITOPEN"
  104. 694 [139]W[178]5[167][141]730:[141]382
  105. 696 [153]"ONONONONON":[141]340
  106. 698 [153]"LOAD":[141]380:[137]550
  107. 699 :
  108. 700 [143] <YES> SOUND
  109. 705 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
  110. 710 [151]54296,15:[151]54277,42:[151]54278,250
  111. 715 [151]54276,23:[151]54273,23:[151]54272,191
  112. 720 [129]T[178]1[164]150:[130]:[151]54276,32:[129]T[178]1[164]200:[130]
  113. 725 [151]54296,0:[142]
  114. 730 [143] <NO> SOUND
  115. 735 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
  116. 740 [151]54296,15:[151]54277,18:[151]54278,242
  117. 745 [151]54276,33:[151]54273,4:[151]54272,48
  118. 750 [129]T[178]1[164]300:[130]:[151]54276,32:[129]T[178]1[164]400:[130]
  119. 755 [151]54296,0:[142]
  120. 760 [143] <BLIP> SOUND
  121. 765 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
  122. 770 [151]54296,8:[151]54277,42:[151]54278,250
  123. 775 [151]54276,23:[151]54273,23:[151]54272,191
  124. 780 [129]T[178]1[164]35:[130]:[151]54276,32:[129]T[178]1[164]50:[130]
  125. 785 [151]54296,0:[142]
  126. 799 :
  127. 800 [153]"LOAD WHAT IS YOUR NAME?
  128. 810 INPUT" >>> ";N$
  129. 820 RETURN
  130. 999 :
  131. 1000 PRINT"[147] >>> "N$:K=1:GOSUB200:GOSUB620:REM #1
  132. 1002 PRINT"[145][145][145][145][145][145][145][145][145][145][145]1111 "
  133. 1004 PRINT" 76 "
  134. 1006 GOTO2000
  135. 1009 :
  136. 1010 PRINT"[147] >>> "N$:K=2:GOSUB200:GOSUB620:REM #2
  137. 1012 PRINT"[145][145][145][145][145][145][145][145][145][145][145]1310 "
  138. 1014 PRINT" 9 7 "
  139. 1016 GOTO2100
  140. 1019 :
  141. 1020 PRINT"[147] >>> "N$:K=3:GOSUB200:GOSUB620:REM #3
  142. 1022 PRINT"[145][145][145][145][145][145][145][145][145][145][145]17 11 "
  143. 1024 PRINT" 8  6 "
  144. 1026 GOTO2200
  145. 1030 PRINT"[147] >>> "N$:K=4:GOSUB200:GOSUB620:REM #4
  146. 1032 PRINT"[145][145][145][145][145][145][145][145][145][145][145]1713 "
  147. 1034 PRINT"129 "
  148. 1036 GOTO2300
  149. 1040 PRINT"[147] >>> "N$:K=5:GOSUB200:GOSUB620:REM #5
  150. 1042 PRINT"[145][145][145][145][145][145][145][145][145][145][145]1328 "
  151. 1044 PRINT" 3 7 "
  152. 1046 GOTO2400
  153. 1050 PRINT"[147] >>> "N$:K=6:GOSUB200:GOSUB620:REM #6
  154. 1052 PRINT"[145][145][145][145][145][145][145][145][145][145][145] 13 17 "
  155. 1054 PRINT" 615 "
  156. 1056 GOTO2500
  157. 1060 PRINT"[147] >>> "N$:K=7:GOSUB200:GOSUB620:REM #7
  158. 1062 PRINT"[145][145][145][145][145][145][145][145][145][145][145] 1514 "
  159. 1064 PRINT" 9 7 "
  160. 1066 GOTO2600
  161. 1070 PRINT"[147] >>> "N$:K=8:GOSUB200:GOSUB620:REM #8
  162. 1072 PRINT"[145][145][145][145][145][145][145][145][145][145][145] 11 19 "
  163. 1074 PRINT"  2 7 "
  164. 1076 GOTO2700
  165. 1080 PRINT"[147] >>> "N$:K=9:GOSUB200:GOSUB620:REM #9
  166. 1082 PRINT"[145][145][145][145][145][145][145][145][145][145][145] 14 17 "
  167. 1084 PRINT" 12 2 "
  168. 1086 GOTO2800
  169. 1090 PRINT"[147] >>> "N$:K=10:GOSUB200:GOSUB620:REM #10
  170. 1092 PRINT"[145][145][145][145][145][145][145][145][145][145][145] 32  9 "
  171. 1094 PRINT" 17 7 "
  172. 1096 GOTO2900
  173. 1099 :
  174. 1100 PRINT"[147]":GOSUB200:REM DEMO
  175. 1102 PRINT"[145][145][145][145][145][145][145][145][145][145][145]132 "
  176. 1104 PRINT" 41 "
  177. 1106 REM
  178. 1110 PRINT"    IN THIS GAME YOU MUST FIND THE
  179. 1112 [153]"    VALUES OF  A WAIT,  B WAIT,  C WAIT,  D WAIT,    "
  180. 1113 [153]"    AND  E WAIT.":[141]340
  181. 1114 [153]"ONONONONONONON   YOU ADD 13OPEN + 2OPEN TO GET 15OPEN WHICH IS "
  182. 1116 [153]"   THE VALUE OF  A WAIT.                "
  183. 1117 [153]"                                        ":[141]340
  184. 1118 [153]"ONONONONONONONON   YOU ADD 4OPEN + 1OPEN TO GET 5OPEN WHICH IS "
  185. 1120 [153]"   THE VALUE OF  B WAIT.                "
  186. 1121 [153]"                                        ":[141]340
  187. 1122 [153]"ONONONONONONONON   YOU SUBTRACT 13OPEN - 4OPEN TO GET 9OPEN"
  188. 1124 [153]"   WHICH IS THE VALUE OF  C WAIT.       ":
  189. 1125 [153]"                                        ":[141]340
  190. 1126 [153]"ONONONONONONONON   YOU SUBTRACT 2OPEN - 1OPEN TO GET 1OPEN WHICH "
  191. 1128 [153]"   IS THE VALUE OF  D WAIT.             "
  192. 1129 [153]"                                        ":[141]340
  193. 1130 [153]"ONONONONONONONON    YOU SUBTRACT A (15)OPEN - B (5)OPEN TO GET 10OPEN"
  194. 1132 [153]"    WHICH IS THE VALUE OF  E WAIT.        "
  195. 1133 [153]"                                        ":[141]340
  196. 1134 [153]"ONONONON                   OR                   ":[141]382
  197. 1135 [153]"ONON                                        "
  198. 1136 [153]"ONONONONONON    YOU ADD C (9)OPEN + D (1)OPEN TO GET 10OPEN"
  199. 1138 [153]"    WHICH IS THE VALUE OF  E WAIT.":[141]340
  200. 1140 [153]"LOAD YOU HAVE A CHOICE:
  201. 1142 PRINT" PRESS  R [146] TO REPEAT INSTRUCTIONS
  202. 1144 [153]" PRESS  P WAIT TO PLAY  SQUARES WAIT
  203. 1146 GETR$:IFR$<>"R"ANDR$<>"P"THEN1146
  204. 1148 IFR$="R"THEN1100
  205. 1150 RETURN
  206. 1199 :
  207. 2000 PRINT" WHAT IS THE VALUE OF  A [146]?               [158]":X=O
  208. 2002 GOSUB760:INPUTA$
  209. 2004 IFA$="22"THENPRINT"[153][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145]22[159]"
  210. 2006 IFA$="22"THENPRINT"":GOSUB300:GOTO2020
  211. 2008 GOSUB320
  212. 2010 PRINT"[150][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145]22[159]"
  213. 2012 GOSUB700:GOSUB383
  214. 2019 :REM **** B **
  215. 2020 PRINT"[145][145][145] WHAT IS THE VALUE OF  B [146]?              [158]":X=O
  216. 2022 PRINT"     [145]":GOSUB760:INPUTA$
  217. 2024 IFA$="13"THENPRINT"[153][145][145][145][145][145][145][145][145][145][145][145]13[159]"
  218. 2026 IFA$="13"THENPRINT"":GOSUB300:GOTO2040
  219. 2028 GOSUB320
  220. 2030 PRINT"[150][145][145][145][145][145][145][145][145][145][145][145][145][145]13[159]"
  221. 2032 GOSUB700:GOSUB383
  222. 2039 :
  223. 2040 PRINT"[145][145][145] WHAT IS THE VALUE OF  C [146]?[158]":X=O
  224. 2042 PRINT"     [145]":GOSUB760:INPUTA$
  225. 2044 IFA$="4"THENPRINT"[153][145][145][145][145][145][145][145]    4[159]
  226. 2046 [139]A$[178]"4"[167][153]"":[141]300:[137]2060
  227. 2048 [141]320
  228. 2050 [153]"DEFONONONONONONONONON  4OPEN"
  229. 2052 [141]730:[141]384:
  230. 2059 :
  231. 2060 [153]"ONONON WHAT IS THE VALUE OF  D WAIT?              SYS":X[178]O
  232. 2062 [153]"     ON":[141]760:[133]A$
  233. 2064 [139]A$[178]"5"[167][153]"PRINTONONONONONONON 5OPEN"
  234. 2066 [139]A$[178]"5"[167][153]"":[141]300:[137]2080
  235. 2068 [141]320
  236. 2070 [153]"DEFONONONONONONONONON  5OPEN"
  237. 2072 [141]730:[141]382
  238. 2079 :
  239. 2080 [153]"ONONON WHAT IS THE VALUE OF  E WAIT               SYS":X[178]0
  240. 2082 [153]"     ON":[141]760:[133]A$
  241. 2084 [139]A$[178]"9"[167][153]"PRINTONONONONONONON 9OPEN"
  242. 2086 [139]A$[178]"9"[167][153]"":[141]300:P[178]1:[137]650
  243. 2088 [141]320
  244. 2090 [153]"DEFONONONONONONONONON 9OPEN"
  245. 2092 [141]730:[141]382
  246. 2094 P[178]1:[137]650
  247. 2099 :
  248. 2100 [153]" WHAT IS THE VALUE OF  A WAIT?               SYS":X[178]O
  249. 2102 [141]760:[133]A$
  250. 2104 [139]A$[178]"23"[167][153]"PRINTONONONONONONONONONONONONONONON23OPEN"
  251. 2106 [139]A$[178]"23"[167][153]"":[141]300:[137]2120
  252. 2108 [141]320
  253. 2110 [153]"DEFONONONONONONONONONONONONONONONONON23OPEN"
  254. 2112 [141]700:[141]383
  255. 2119 :[143] **** B **
  256. 2120 [153]"ONONON WHAT IS THE VALUE OF  B WAIT?              SYS":X[178]O
  257. 2122 [153]"     ON":[141]760:[133]A$
  258. 2124 [139]A$[178]"16"[167][153]"PRINTONONONONONONONONONONON16OPEN"
  259. 2126 [139]A$[178]"16"[167][153]"":[141]300:[137]2140
  260. 2128 [141]320
  261. 2130 [153]"DEFONONONONONONONONONONONONON16OPEN"
  262. 2132 [141]700:[141]383
  263. 2139 :
  264. 2140 [153]"ONONON WHAT IS THE VALUE OF  C WAIT?SYS":X[178]O
  265. 2142 [153]"     ON":[141]760:[133]A$
  266. 2144 [139]A$[178]"4"[167][153]"PRINTONONONONONONON    4OPEN
  267. 2146 IFA$="4"THENPRINT"":GOSUB300:GOTO2160
  268. 2148 GOSUB320
  269. 2150 PRINT"[150][145][145][145][145][145][145][145][145][145]  4[159]"
  270. 2152 GOSUB730:GOSUB384:
  271. 2159 :
  272. 2160 PRINT"[145][145][145] WHAT IS THE VALUE OF  D [146]?              [158]":X=O
  273. 2162 PRINT"     [145]":GOSUB760:INPUTA$
  274. 2164 IFA$="3"THENPRINT"[153][145][145][145][145][145][145][145] 3[159]"
  275. 2166 IFA$="3"THENPRINT"":GOSUB300:GOTO2180
  276. 2168 GOSUB320
  277. 2170 PRINT"[150][145][145][145][145][145][145][145][145][145]  3[159]"
  278. 2172 GOSUB730:GOSUB382
  279. 2179 :
  280. 2180 PRINT"[145][145][145] WHAT IS THE VALUE OF  E [146]               [158]":X=0
  281. 2182 PRINT"     [145]":GOSUB760:INPUTA$
  282. 2184 IFA$="7"THENPRINT"[153][145][145][145][145][145][145][145] 7[159]"
  283. 2186 IFA$="7"THENPRINT"":GOSUB300:P=2:GOTO650
  284. 2188 GOSUB320
  285. 2190 PRINT"[150][145][145][145][145][145][145][145][145][145] 7[159]"
  286. 2192 GOSUB730:GOSUB382
  287. 2194 P=2:GOTO650
  288. 2199 :
  289. 2200 PRINT" WHAT IS THE VALUE OF  A [146]?               [158]":X=O
  290. 2202 GOSUB760:INPUTA$
  291. 2204 IFA$="28"THENPRINT"[153][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145]28 [159]"
  292. 2206 IFA$="28"THENPRINT"":GOSUB300:GOTO2220
  293. 2208 GOSUB320
  294. 2210 PRINT"[150][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145]28 [159]"
  295. 2212 GOSUB700:GOSUB383
  296. 2219 :REM **** B **
  297. 2220 PRINT"[145][145][145] WHAT IS THE VALUE OF  B [146]?              [158]":X=O
  298. 2222 PRINT"     [145]":GOSUB760:INPUTA$
  299. 2224 IFA$="14"THENPRINT"[153][145][145][145][145][145][145][145][145][145][145][145]14 [159]"
  300. 2226 IFA$="14"THENPRINT"":GOSUB300:GOTO2240
  301. 2228 GOSUB320
  302. 2230 PRINT"[150][145][145][145][145][145][145][145][145][145][145][145][145][145]14 [159]"
  303. 2232 GOSUB700:GOSUB383
  304. 2239 :
  305. 2240 PRINT"[145][145][145] WHAT IS THE VALUE OF  C [146]?[158]":X=O
  306. 2242 PRINT"     [145]":GOSUB760:INPUTA$
  307. 2244 IFA$="9"THENPRINT"[153][145][145][145][145][145][145][145]    9[159]
  308. 2246 [139]A$[178]"9"[167][153]"":[141]300:[137]2260
  309. 2248 [141]320
  310. 2250 [153]"DEFONONONONONONONONON  9OPEN"
  311. 2252 [141]730:[141]384:
  312. 2259 :
  313. 2260 [153]"ONONON WHAT IS THE VALUE OF  D WAIT?              SYS":X[178]O
  314. 2262 [153]"     ON":[141]760:[133]A$
  315. 2264 [139]A$[178]"5"[167][153]"PRINTONONONONONONON 5OPEN"
  316. 2266 [139]A$[178]"5"[167][153]"":[141]300:[137]2280
  317. 2268 [141]320
  318. 2270 [153]"DEFONONONONONONONONON  5OPEN"
  319. 2272 [141]730:[141]382
  320. 2279 :
  321. 2280 [153]"ONONON WHAT IS THE VALUE OF  E WAIT               SYS":X[178]0
  322. 2282 [153]"     ON":[141]760:[133]A$
  323. 2284 [139]A$[178]"14"[167][153]"PRINTONONONONONONON14OPEN"
  324. 2286 [139]A$[178]"14"[167][153]"":[141]300:P[178]3:[137]650
  325. 2288 [141]320
  326. 2290 [153]"DEFONONONONONONONONON14OPEN"
  327. 2292 [141]730:[141]382
  328. 2294 P[178]3:[137]650
  329. 2299 :
  330. 2300 [153]" WHAT IS THE VALUE OF  A WAIT?               SYS":X[178]O
  331. 2302 [141]760:[133]A$
  332. 2304 [139]A$[178]"30"[167][153]"PRINTONONONONONONONONONONONONONONON30OPEN"
  333. 2306 [139]A$[178]"30"[167][153]"":[141]300:[137]2320
  334. 2308 [141]320
  335. 2310 [153]"DEFONONONONONONONONONONONONONONONONON30OPEN"
  336. 2312 [141]700:[141]383
  337. 2319 :[143] **** B **
  338. 2320 [153]"ONONON WHAT IS THE VALUE OF  B WAIT?              SYS":X[178]O
  339. 2322 [153]"     ON":[141]760:[133]A$
  340. 2324 [139]A$[178]"21"[167][153]"PRINTONONONONONONONONONONON21OPEN"
  341. 2326 [139]A$[178]"21"[167][153]"":[141]300:[137]2340
  342. 2328 [141]320
  343. 2330 [153]"DEFONONONONONONONONONONONONON21OPEN"
  344. 2332 [141]700:[141]383
  345. 2339 :
  346. 2340 [153]"ONONON WHAT IS THE VALUE OF  C WAIT?SYS":X[178]O
  347. 2342 [153]"     ON":[141]760:[133]A$
  348. 2344 [139]A$[178]"5"[167][153]"PRINTONONONONONONON    5OPEN
  349. 2346 IFA$="5"THENPRINT"":GOSUB300:GOTO2360
  350. 2348 GOSUB320
  351. 2350 PRINT"[150][145][145][145][145][145][145][145][145][145]  5[159]"
  352. 2352 GOSUB730:GOSUB384:
  353. 2359 :
  354. 2360 PRINT"[145][145][145] WHAT IS THE VALUE OF  D [146]?              [158]":X=O
  355. 2362 PRINT"     [145]":GOSUB760:INPUTA$
  356. 2364 IFA$="4"THENPRINT"[153][145][145][145][145][145][145][145] 4[159]"
  357. 2366 IFA$="4"THENPRINT"":GOSUB300:GOTO2380
  358. 2368 GOSUB320
  359. 2370 PRINT"[150][145][145][145][145][145][145][145][145][145]  4[159]"
  360. 2372 GOSUB730:GOSUB382
  361. 2379 :
  362. 2380 PRINT"[145][145][145] WHAT IS THE VALUE OF  E [146]               [158]":X=0
  363. 2382 PRINT"     [145]":GOSUB760:INPUTA$
  364. 2384 IFA$="9"THENPRINT"[153][145][145][145][145][145][145][145] 9[159]"
  365. 2386 IFA$="9"THENPRINT"":GOSUB300:P=4:GOTO650
  366. 2388 GOSUB320
  367. 2390 PRINT"[150][145][145][145][145][145][145][145][145][145] 9[159]"
  368. 2392 GOSUB730:GOSUB382
  369. 2394 P=4:GOTO650
  370. 2399 :
  371. 2400 PRINT" WHAT IS THE VALUE OF  A [146]?               [158]":X=O
  372. 2402 GOSUB760:INPUTA$
  373. 2404 IFA$="41"THENPRINT"[153][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145]41 [159]"
  374. 2406 IFA$="41"THENPRINT"":GOSUB300:GOTO2420
  375. 2408 GOSUB320
  376. 2410 PRINT"[150][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145]41 [159]"
  377. 2412 GOSUB700:GOSUB383
  378. 2419 :REM **** B **
  379. 2420 PRINT"[145][145][145] WHAT IS THE VALUE OF  B [146]?              [158]":X=O
  380. 2422 PRINT"     [145]":GOSUB760:INPUTA$
  381. 2424 IFA$="10"THENPRINT"[153][145][145][145][145][145][145][145][145][145][145][145]10 [159]"
  382. 2426 IFA$="10"THENPRINT"":GOSUB300:GOTO2440
  383. 2428 GOSUB320
  384. 2430 PRINT"[150][145][145][145][145][145][145][145][145][145][145][145][145][145]10 [159]"
  385. 2432 GOSUB700:GOSUB383
  386. 2439 :
  387. 2440 PRINT"[145][145][145] WHAT IS THE VALUE OF  C [146]?[158]":X=O
  388. 2442 PRINT"     [145]":GOSUB760:INPUTA$
  389. 2444 IFA$="10"THENPRINT"[153][145][145][145][145][145][145][145]   10[159]
  390. 2446 [139]A$[178]"10"[167][153]"":[141]300:[137]2460
  391. 2448 [141]320
  392. 2450 [153]"DEFONONONONONONONONON 10OPEN"
  393. 2452 [141]730:[141]384:
  394. 2459 :
  395. 2460 [153]"ONONON WHAT IS THE VALUE OF  D WAIT?              SYS":X[178]O
  396. 2462 [153]"     ON":[141]760:[133]A$
  397. 2464 [139]A$[178]"21"[167][153]"PRINTONONONONONONON21OPEN"
  398. 2466 [139]A$[178]"21"[167][153]"":[141]300:[137]2480
  399. 2468 [141]320
  400. 2470 [153]"DEFONONONONONONONONON 21OPEN"
  401. 2472 [141]730:[141]382
  402. 2479 :
  403. 2480 [153]"ONONON WHAT IS THE VALUE OF  E WAIT               SYS":X[178]0
  404. 2482 [153]"     ON":[141]760:[133]A$
  405. 2484 [139]A$[178]"31"[167][153]"PRINTONONONONONONON 31 OPEN"
  406. 2486 [139]A$[178]"31"[167][153]"":[141]300:P[178]5:[137]650
  407. 2488 [141]320
  408. 2490 [153]"DEFONONONONONONONONON 31OPEN"
  409. 2492 [141]730:[141]382
  410. 2494 P[178]5:[137]650
  411. 2500 [153]" WHAT IS THE VALUE OF  A WAIT?               SYS":X[178]O
  412. 2502 [141]760:[133]A$
  413. 2504 [139]A$[178]"30"[167][153]"PRINTONONONONONONONONONONONONONONON30 OPEN"
  414. 2506 [139]A$[178]"30"[167][153]"":[141]300:[137]2520
  415. 2508 [141]320
  416. 2510 [153]"DEFONONONONONONONONONONONONONONONONON30 OPEN"
  417. 2512 [141]700:[141]383
  418. 2519 :[143] **** B **
  419. 2520 [153]"ONONON WHAT IS THE VALUE OF  B WAIT?              SYS":X[178]O
  420. 2522 [153]"     ON":[141]760:[133]A$
  421. 2524 [139]A$[178]"21"[167][153]"PRINTONONONONONONONONONONON21 OPEN"
  422. 2526 [139]A$[178]"21"[167][153]"":[141]300:[137]2540
  423. 2528 [141]320
  424. 2530 [153]"DEFONONONONONONONONONONONONON21 OPEN"
  425. 2532 [141]700:[141]383
  426. 2539 :
  427. 2540 [153]"ONONON WHAT IS THE VALUE OF  C WAIT?SYS":X[178]O
  428. 2542 [153]"     ON":[141]760:[133]A$
  429. 2544 [139]A$[178]"7"[167][153]"PRINTONONONONONONON  7 OPEN
  430. 2546 IFA$="7"THENPRINT"":GOSUB300:GOTO2560
  431. 2548 GOSUB320
  432. 2550 PRINT"[150][145][145][145][145][145][145][145][145][145]  7 [159]"
  433. 2552 GOSUB730:GOSUB384:
  434. 2559 :
  435. 2560 PRINT"[145][145][145] WHAT IS THE VALUE OF  D [146]?              [158]":X=O
  436. 2562 PRINT"     [145]":GOSUB760:INPUTA$
  437. 2564 IFA$="2"THENPRINT"[153][145][145][145][145][145][145][145] 2 [159]"
  438. 2566 IFA$="2"THENPRINT"":GOSUB300:GOTO2580
  439. 2568 GOSUB320
  440. 2570 PRINT"[150][145][145][145][145][145][145][145][145][145]  2 [159]"
  441. 2572 GOSUB730:GOSUB382
  442. 2579 :
  443. 2580 PRINT"[145][145][145] WHAT IS THE VALUE OF  E [146]               [158]":X=0
  444. 2582 PRINT"     [145]":GOSUB760:INPUTA$
  445. 2584 IFA$="9"THENPRINT"[153][145][145][145][145][145][145][145]  9 [159]"
  446. 2586 IFA$="9"THENPRINT"":GOSUB300:P=6:GOTO650
  447. 2588 GOSUB320
  448. 2590 PRINT"[150][145][145][145][145][145][145][145][145][145] 9[159]"
  449. 2592 GOSUB730:GOSUB382
  450. 2594 P=6:GOTO650
  451. 2599 :
  452. 2600 PRINT" WHAT IS THE VALUE OF  A [146]?               [158]":X=O
  453. 2602 GOSUB760:INPUTA$
  454. 2604 IFA$="29"THENPRINT"[153][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145]29 [159]"
  455. 2606 IFA$="29"THENPRINT"":GOSUB300:GOTO2620
  456. 2608 GOSUB320
  457. 2610 PRINT"[150][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145]29 [159]"
  458. 2612 GOSUB700:GOSUB383
  459. 2619 :REM **** B **
  460. 2620 PRINT"[145][145][145] WHAT IS THE VALUE OF  B [146]?              [158]":X=O
  461. 2622 PRINT"     [145]":GOSUB760:INPUTA$
  462. 2624 IFA$="16"THENPRINT"[153][145][145][145][145][145][145][145][145][145][145][145]16 [159]"
  463. 2626 IFA$="16"THENPRINT"":GOSUB300:GOTO2640
  464. 2628 GOSUB320
  465. 2630 PRINT"[150][145][145][145][145][145][145][145][145][145][145][145][145][145]16 [159]"
  466. 2632 GOSUB700:GOSUB383
  467. 2639 :
  468. 2640 PRINT"[145][145][145] WHAT IS THE VALUE OF  C [146]?[158]":X=O
  469. 2642 PRINT"     [145]":GOSUB760:INPUTA$
  470. 2644 IFA$="6"THENPRINT"[153][145][145][145][145][145][145][145]  6 [159]
  471. 2646 [139]A$[178]"6"[167][153]"":[141]300:[137]2660
  472. 2648 [141]320
  473. 2650 [153]"DEFONONONONONONONONON  6 OPEN"
  474. 2652 [141]730:[141]384:
  475. 2659 :
  476. 2660 [153]"ONONON WHAT IS THE VALUE OF  D WAIT?              SYS":X[178]O
  477. 2662 [153]"     ON":[141]760:[133]A$
  478. 2664 [139]A$[178]"7"[167][153]"PRINTONONONONONONON 7 OPEN"
  479. 2666 [139]A$[178]"7"[167][153]"":[141]300:[137]2680
  480. 2668 [141]320
  481. 2670 [153]"DEFONONONONONONONONON  7 OPEN"
  482. 2672 [141]730:[141]382
  483. 2679 :
  484. 2680 [153]"ONONON WHAT IS THE VALUE OF  E WAIT               SYS":X[178]0
  485. 2682 [153]"     ON":[141]760:[133]A$
  486. 2684 [139]A$[178]"13"[167][153]"PRINTONONONONONONON 13  OPEN"
  487. 2686 [139]A$[178]"13"[167][153]"":[141]300:P[178]7:[137]650
  488. 2688 [141]320
  489. 2690 [153]"DEFONONONONONONONONON13OPEN"
  490. 2692 [141]730:[141]382
  491. 2694 P[178]7:[137]650
  492. 2699 :
  493. 2700 [153]" WHAT IS THE VALUE OF  A WAIT?               SYS":X[178]O
  494. 2702 [141]760:[133]A$
  495. 2704 [139]A$[178]"30"[167][153]"PRINTONONONONONONONONONONONONONONON30 OPEN"
  496. 2706 [139]A$[178]"30"[167][153]"":[141]300:[137]2720
  497. 2708 [141]320
  498. 2710 [153]"DEFONONONONONONONONONONONONONONONONON30 OPEN"
  499. 2712 [141]700:[141]383
  500. 2719 :[143] **** B **
  501. 2720 [153]"ONONON WHAT IS THE VALUE OF  B WAIT?              SYS":X[178]O
  502. 2722 [153]"     ON":[141]760:[133]A$
  503. 2724 [139]A$[178]"9"[167][153]"PRINTONONONONONONONONONONON 9 OPEN"
  504. 2726 [139]A$[178]"9"[167][153]"":[141]300:[137]2740
  505. 2728 [141]320
  506. 2730 [153]"DEFONONONONONONONONONONONONON 9 OPEN"
  507. 2732 [141]700:[141]383
  508. 2739 :
  509. 2740 [153]"ONONON WHAT IS THE VALUE OF  C WAIT?SYS":X[178]O
  510. 2742 [153]"     ON":[141]760:[133]A$
  511. 2744 [139]A$[178]"9"[167][153]"PRINTONONONONONONON  9 OPEN
  512. 2746 IFA$="9"THENPRINT"":GOSUB300:GOTO2760
  513. 2748 GOSUB320
  514. 2750 PRINT"[150][145][145][145][145][145][145][145][145][145]  9 [159]"
  515. 2752 GOSUB730:GOSUB384:
  516. 2759 :
  517. 2760 PRINT"[145][145][145] WHAT IS THE VALUE OF  D [146]?              [158]":X=O
  518. 2762 PRINT"     [145]":GOSUB760:INPUTA$
  519. 2764 IFA$="12"THENPRINT"[153][145][145][145][145][145][145][145]12 [159]"
  520. 2766 IFA$="12"THENPRINT"":GOSUB300:GOTO2780
  521. 2768 GOSUB320
  522. 2770 PRINT"[150][145][145][145][145][145][145][145][145][145] 12 [159]"
  523. 2772 GOSUB730:GOSUB382
  524. 2779 :
  525. 2780 PRINT"[145][145][145] WHAT IS THE VALUE OF  E [146]               [158]":X=0
  526. 2782 PRINT"     [145]":GOSUB760:INPUTA$
  527. 2784 IFA$="21"THENPRINT"[153][145][145][145][145][145][145][145]21 [159]"
  528. 2786 IFA$="21"THENPRINT"":GOSUB300:P=8:GOTO650
  529. 2788 GOSUB320
  530. 2790 PRINT"[150][145][145][145][145][145][145][145][145][145]21[159]"
  531. 2792 GOSUB730:GOSUB382
  532. 2794 P=8:GOTO650
  533. 2799 :
  534. 2800 PRINT" WHAT IS THE VALUE OF  A [146]?               [158]":X=O
  535. 2802 GOSUB760:INPUTA$
  536. 2804 IFA$="31"THENPRINT"[153][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145]31 [159]"
  537. 2806 IFA$="31"THENPRINT"":GOSUB300:GOTO2820
  538. 2808 GOSUB320
  539. 2810 PRINT"[150][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145]31 [159]"
  540. 2812 GOSUB700:GOSUB383
  541. 2819 :REM **** B **
  542. 2820 PRINT"[145][145][145] WHAT IS THE VALUE OF  B [146]?              [158]":X=O
  543. 2822 PRINT"     [145]":GOSUB760:INPUTA$
  544. 2824 IFA$="14"THENPRINT"[153][145][145][145][145][145][145][145][145][145][145][145]14 [159]"
  545. 2826 IFA$="14"THENPRINT"":GOSUB300:GOTO2840
  546. 2828 GOSUB320
  547. 2830 PRINT"[150][145][145][145][145][145][145][145][145][145][145][145][145][145]14 [159]"
  548. 2832 GOSUB700:GOSUB383
  549. 2839 :
  550. 2840 PRINT"[145][145][145] WHAT IS THE VALUE OF  C [146]?[158]":X=O
  551. 2842 PRINT"     [145]":GOSUB760:INPUTA$
  552. 2844 IFA$="2"THENPRINT"[153][145][145][145][145][145][145][145]  2 [159]
  553. 2846 [139]A$[178]"2"[167][153]"":[141]300:[137]2860
  554. 2848 [141]320
  555. 2850 [153]"DEFONONONONONONONONON  2 OPEN"
  556. 2852 [141]730:[141]384:
  557. 2859 :
  558. 2860 [153]"ONONON WHAT IS THE VALUE OF  D WAIT?              SYS":X[178]O
  559. 2862 [153]"     ON":[141]760:[133]A$
  560. 2864 [139]A$[178]"15"[167][153]"PRINTONONONONONONON15 OPEN"
  561. 2866 [139]A$[178]"15"[167][153]"":[141]300:[137]2880
  562. 2868 [141]320
  563. 2870 [153]"DEFONONONONONONONONON 15 OPEN"
  564. 2872 [141]730:[141]382
  565. 2879 :
  566. 2880 [153]"ONONON WHAT IS THE VALUE OF  E WAIT               SYS":X[178]0
  567. 2882 [153]"     ON":[141]760:[133]A$
  568. 2884 [139]A$[178]"17"[167][153]"PRINTONONONONONONON   17 OPEN"
  569. 2886 [139]A$[178]"17"[167][153]"":[141]300:P[178]9:[137]650
  570. 2888 [141]320
  571. 2890 [153]"DEFONONONONONONONONON17OPEN"
  572. 2892 [141]730:[141]382
  573. 2894 P[178]9:[137]650
  574. 2899 :
  575. 2900 [153]" WHAT IS THE VALUE OF  A WAIT?               SYS":X[178]O
  576. 2902 [141]760:[133]A$
  577. 2904 [139]A$[178]"41"[167][153]"PRINTONONONONONONONONONONONONONONON41 OPEN"
  578. 2906 [139]A$[178]"41"[167][153]"":[141]300:[137]2920
  579. 2908 [141]320
  580. 2910 [153]"DEFONONONONONONONONONONONONONONONONON41 OPEN"
  581. 2912 [141]700:[141]383
  582. 2919 :[143] **** B **
  583. 2920 [153]"ONONON WHAT IS THE VALUE OF  B WAIT?              SYS":X[178]O
  584. 2922 [153]"     ON":[141]760:[133]A$
  585. 2924 [139]A$[178]"24"[167][153]"PRINTONONONONONONONONONONON24 OPEN"
  586. 2926 [139]A$[178]"24"[167][153]"":[141]300:[137]2940
  587. 2928 [141]320
  588. 2930 [153]"DEFONONONONONONONONONONONONON24 OPEN"
  589. 2932 [141]700:[141]383
  590. 2939 :
  591. 2940 [153]"ONONON WHAT IS THE VALUE OF  C WAIT?SYS":X[178]O
  592. 2942 [153]"     ON":[141]760:[133]A$
  593. 2944 [139]A$[178]"15"[167][153]"PRINTONONONONONONON 15 OPEN
  594. 2946 IFA$="15"THENPRINT"":GOSUB300:GOTO2960
  595. 2948 GOSUB320
  596. 2950 PRINT"[150][145][145][145][145][145][145][145][145][145] 15 [159]"
  597. 2952 GOSUB730:GOSUB384:
  598. 2959 :
  599. 2960 PRINT"[145][145][145] WHAT IS THE VALUE OF  D [146]?              [158]":X=O
  600. 2962 PRINT"     [145]":GOSUB760:INPUTA$
  601. 2964 IFA$="2"THENPRINT"[153][145][145][145][145][145][145][145] 2 [159]"
  602. 2966 IFA$="2"THENPRINT"":GOSUB300:GOTO2980
  603. 2968 GOSUB320
  604. 2970 PRINT"[150][145][145][145][145][145][145][145][145][145]  2 [159]"
  605. 2972 GOSUB730:GOSUB382
  606. 2979 :
  607. 2980 PRINT"[145][145][145] WHAT IS THE VALUE OF  E [146]               [158]":X=0
  608. 2982 PRINT"     [145]":GOSUB760:INPUTA$
  609. 2984 IFA$="17"THENPRINT"[153][145][145][145][145][145][145][145] 17 [159]"
  610. 2986 IFA$="17"THENPRINT"":GOSUB300:P=10:GOTO650
  611. 2988 GOSUB320
  612. 2990 PRINT"[150][145][145][145][145][145][145][145][145][145] 17[159]"
  613. 2992 GOSUB730:GOSUB382
  614. 2994 P=10:GOTO650
  615. 2999 :
  616. 5000 REM DESIGNED BY BILL CUMBERLAND - THE BRUTE FORCE PROGRAMMER
  617. 5005 REM THIS IS A TPUG EDUCATIONAL PROGRAM
  618. 5010 REM THIS UNIT PREPARED 92 02 13 CHEZ MOI PAR WHC
  619.